home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1999 May: Tool Chest / Developer CD Series Tool Chest (Apple Computer)(May 1999).iso / Tool Chest / Development Kits / MPW Related / DTS MPW Goodies / SourceMenu < prev    next >
Encoding:
Text File  |  1990-09-14  |  1.3 KB  |  58 lines  |  [TEXT/MPS ]
  1. #
  2. # Build the Source Menu (based on files in current directory)
  3. #
  4. Set Exit 0
  5.     DeleteMenu Source ∑ Dev:Null
  6.     Set CurDir "`Directory`"
  7.     If "`Exists Makefile ≥ Dev:Null`"
  8.         AddMenu Source "Makefile" 'Open "'"{CurDir}Makefile"'"' ∑ Dev:Null
  9.     End
  10.     If "`Exists ≈.≈make ≥ Dev:Null`"
  11.         For srcfile In ≈.≈make
  12.             AddMenu Source "{srcfile}" 'Open "'"{CurDir}{srcfile}"'"' ∑ Dev:Null
  13.         End
  14.     End
  15. #
  16.     If "`(Exists ≈.h) ≥ Dev:Null`"
  17.         AddMenu Source (- ' '
  18.         For srcfile In ≈.h
  19.             AddMenu Source "{srcfile}" 'Open "'"{CurDir}{srcfile}"'"' ∑ Dev:Null
  20.         End
  21.     End
  22. #
  23.     If "`(Exists ≈.cp) ≥ Dev:Null`"
  24.         AddMenu Source (- ' '
  25.         For srcfile In ≈.cp
  26.             AddMenu Source "{srcfile}" 'Open "'"{CurDir}{srcfile}"'"' ∑ Dev:Null
  27.         End
  28.     End
  29. #
  30.     If "`(Exists ≈.c) ≥ Dev:Null`"
  31.         AddMenu Source (- ' '
  32.         For srcfile In ≈.c
  33.             AddMenu Source "{srcfile}" 'Open "'"{CurDir}{srcfile}"'"' ∑ Dev:Null
  34.         End
  35.     End
  36. #
  37.     If "`(Exists ≈.p) ≥ Dev:Null`"
  38.         AddMenu Source (- ' '
  39.         For srcfile In ≈.p
  40.             AddMenu Source "{srcfile}" 'Open "'"{CurDir}{srcfile}"'"' ∑ Dev:Null
  41.         End
  42.     End
  43. #
  44.     If "`(Exists ≈.a) ≥ Dev:Null`"
  45.         AddMenu Source (- ' '
  46.         For srcfile In ≈.a
  47.             AddMenu Source "{srcfile}" 'Open "'"{CurDir}{srcfile}"'"' ∑ Dev:Null
  48.         End
  49.     End
  50. #
  51.     If "`(Exists ≈.r) ≥ Dev:Null`"
  52.         AddMenu Source (- ' '
  53.         For srcfile In ≈.r
  54.             AddMenu Source "{srcfile}" 'Open "'"{CurDir}{srcfile}"'"' ∑ Dev:Null
  55.         End
  56.     End
  57. Set Exit 1
  58.